﻿Public Class cEmpresas
    Private varCodigo_Empresa As String
    Private varNumero_Identificacion As String
    Private varRazon_Social As String
    Private varDireccion As String
    Private varTelefono As String
    Private varEmail As String
    Private varPagina_Web As String
    Private varCodigo_Municipio As String
    Private varEstado_Empresa As String
    Private datos As New dEmpresas
    Private varCodigo_Tipo_Identificacion As String

    Public Property Codigo_Empresa As String
        Get
            Return varCodigo_Empresa
        End Get
        Set(ByVal value As String)
            varCodigo_Empresa = value
        End Set
    End Property

    Public Property Codigo_Municipio As String
        Get
            Return varCodigo_Municipio
        End Get
        Set(ByVal value As String)
            varCodigo_Municipio = value
        End Set
    End Property

    Public Property Direccion As String
        Get
            Return varDireccion
        End Get
        Set(ByVal value As String)
            varDireccion = value
        End Set
    End Property

    Public Property Email As String
        Get
            Return varEmail
        End Get
        Set(ByVal value As String)
            varEmail = value
        End Set
    End Property

    Public Property Estado_Empresa As String
        Get
            Return varEstado_Empresa
        End Get
        Set(ByVal value As String)
            varEstado_Empresa = value
        End Set
    End Property

    Public Property Numero_Identificacion As String
        Get
            Return varNumero_Identificacion
        End Get
        Set(ByVal value As String)
            varNumero_Identificacion = value
        End Set
    End Property

    Public Property Pagina_Web As String
        Get
            Return varPagina_Web
        End Get
        Set(ByVal value As String)
            varPagina_Web = value
        End Set
    End Property

    Public Property Razon_Social As String
        Get
            Return varRazon_Social
        End Get
        Set(ByVal value As String)
            varRazon_Social = value
        End Set
    End Property

    Public Property Telefono As String
        Get
            Return varTelefono
        End Get
        Set(ByVal value As String)
            varTelefono = value
        End Set
    End Property
    Public Property Codigo_Tipo_Identificacion As String
        Get
            Return varCodigo_Tipo_Identificacion
        End Get
        Set(ByVal value As String)
            varCodigo_Tipo_Identificacion = value
        End Set
    End Property

    Public Function Consultar(ByVal campo As String) As DataSet
        Dim resultado As DataSet
        resultado = datos.ConsultarMysql(campo)
        Return resultado
    End Function

    Public Sub Guardar()
        datos.GuardarMysql(varCodigo_Empresa, varCodigo_Tipo_Identificacion, varNumero_Identificacion, varRazon_Social, varDireccion, varTelefono, varEmail, varPagina_Web, varCodigo_Municipio)
    End Sub

    Public Sub Cargar(ByVal campo As String)
        Dim resultado As ArrayList
        resultado = datos.CargarMysql(campo)
        varCodigo_Tipo_Identificacion = resultado(0)
        varNumero_Identificacion = resultado(1)
        varRazon_Social = resultado(2)
        varDireccion = resultado(3)
        varTelefono = resultado(4)
        varEmail = resultado(5)
        varPagina_Web = resultado(6)
        varCodigo_Municipio = resultado(7)
    End Sub
    Public Function cbo_Empresas() As DataSet
        Dim Resultado As DataSet
        Resultado = datos.llenar_cboMysql()
        Return Resultado
    End Function
End Class
